home *** CD-ROM | disk | FTP | other *** search
/ Aminet 13 / Aminet 13 - August 1996.iso / MainActor / LoadMPEG / mpeg / yuv2iff < prev   
AmigaDOS Script File  |  1994-06-18  |  495b  |  25 lines
  1. .key base/a,from/a,to/a,width/a,height/a
  2. .bra {
  3. .ket }
  4.  
  5. echo >env:mpic2iff {from}
  6.  
  7. lab start_loop
  8.  
  9. echo "*NProcessing... {base}$mpic2iff.[YUV]*N"
  10.  
  11. cyuv2ppm {base}$mpic2iff t:mpic_temp -iw {width} -ih {height}
  12. ppmtoilbm >{base}$mpic2iff.iff -aga -ham8 -hamforce t:mpic_temp
  13. delete "{base}$mpic2iff.?"
  14. delete t:mpic_temp quiet
  15.  
  16. eval >NIL: $mpic2iff + 1 TO=t:temp
  17. type >env:mpic2iff t:temp
  18.  
  19. if VAL $mpic2iff NOT GT {to}
  20.   skip start_loop back
  21. endif
  22.  
  23. delete env:mpic2iff t:temp quiet
  24. echo "*NDone!"
  25.